home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 6
/
Amiga Format AFCD06 (Nov 1996, Issue 90).iso
/
serious
/
commercial
/
arteffect.demo
/
arteffect install-script
< prev
next >
Wrap
Text File
|
1996-07-30
|
4KB
|
149 lines
; $VER: ArtEffect V1.1 Install Version 1.1 (2.7.96)
; Installatiert ArtEffect auf der Festplatte
;
; (c) 1996 HAAGE & PARTNER Computer GmbH
(complete 0)
; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.
(set ae-version "1.1")
(set ae-date "(02 Jul 96)")
;====================================================================
; Initialisierungen
(set @default-dest "")
(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))
(set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
; Die Pfadnamen der einzelnen Quell-Dateien.
(set #libfile (tackon (pathonly @icon) "LIBS/BGUI.library")) ; Hier stehen die Bibliothek
(set #prp-copy-lib
"Copying BGUI-Library...\n")
(set #hlp-copy-lib
"Program will not run without BGUI-Library!")
(if (= @language "deutsch") (
(set #prp-copy-lib
"Kopiere die BGUI-LIBRARY\n")
(set #hlp-copy-lib
"Ohne die BGUI-Library funktioniert nichts!")
))
;=====================================================================================
; Beginn der Installation
;=====================================================================================
; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
(set act-user-level @user-level)
(user 1)
(if (<> @language "deutsch") (
(message (cat "\nWelcome at installation of \n\nArtEffect Demo "
ae-version " of "ae-date "\!\n\n"
"This script copies BGUI-Library to your hard disk "
"and adds an Assign to your user-startup.\n\n"
"© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
))
(if (= @language "deutsch") (
(message (cat "\nWillkommen bei der Installation der \n\n\"ArtEffect-Demoversion "
ae-version " vom "ae-date "\"!\n\n"
"Dieses Skript kopiert die BGUI-Library für ArtEffect "
"auf Ihre Festplatte und erzeugt einen Assign.\n\n\n"
"© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
))
(user act-user-level)
(welcome)
(complete 5)
; BGUI.Library in die Libs-Schublade kopieren!
(copylib
(prompt #prp-copy-lib)
(help #hlp-copy-lib)
(source #libfile)
(dest "LIBS:")
(confirm)
)
(complete 95)
; ------- STARTUP ÄNDERN
(set command1 (cat "ASSIGN ARTEFFECT: " (pathonly @icon) ""))
(set command1.txt
(cat
"\n\n\nThere must be a change in your user-startup "
"to get ArtEffect to run!\n\n"
command1
)
)
(if (= @language "deutsch") (
(set command1.txt
(cat
"\n\n\nUm mit ArtEffect richtig arbeiten zu "
"können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
command1
)
)
))
(startup "ArtEffect"
(prompt command1.txt)
(help #help-startup)
(command command1)
)
(makeassign "ARTEFFECT")
(makeassign "ARTEFFECT" (pathonly @icon))
(complete 100)
; ------- FERTIG
(if (= @language "deutsch")
(
(message (cat
"\nInstallation von ArtEffect beendet.\n\n"
"Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
"User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
"\n\nWir wünschen ihnen viel Spaß mit ArtEffect !"))
)
(
(message (cat
"\nInstallation of ArtEffect completet!\n\n"
"If the line:\n" command1 "\ndoes not appear in your user-startup "
"you should do this by hand.\n\n\n"
"Best wishes..."))
)
)